From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 31 Aug 1995 15:05:39 +0000 (+0000)
Subject: (ange-ftp-vms-sans-version): Accept extra args.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~86092
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=007f0260412566a6458fc8e52a29121ca7aa8f0a;p=emacs.git

(ange-ftp-vms-sans-version): Accept extra args.
---

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 0af2e987509..87af1adedaa 100644
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -4835,7 +4835,7 @@ Other orders of $ and _ seem to all work just fine.")
 ;;	  (cons '(vms . ange-ftp-dired-vms-ls-trim)
 ;;		ange-ftp-dired-ls-trim-alist)))	
 
-(defun ange-ftp-vms-sans-version (name)
+(defun ange-ftp-vms-sans-version (name &rest args)
   (save-match-data
     (if (string-match ";[0-9]+$" name)
 	(substring name 0 (match-beginning 0))